home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libblas / src_original / ccopy.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  965 b   |  45 lines
  1.       SUBROUTINE CCOPY( N, CX, INCX, CY, INCY )
  2. *
  3. *     copies a vector, x, to a vector, y.
  4. *     jack dongarra, linpack, 3/11/78.
  5. *
  6. *     .. Scalar Arguments ..
  7.       INTEGER           INCX, INCY, N
  8. *     ..
  9. *     .. Array Arguments ..
  10.       COMPLEX           CX( 1 ), CY( 1 )
  11. *     ..
  12. *     .. Local Scalars ..
  13.       INTEGER           I, IX, IY
  14. *     ..
  15. *     .. Executable Statements ..
  16. *
  17.       IF( N.LE.0 )
  18.      $   RETURN
  19.       IF( INCX.EQ.1 .AND. INCY.EQ.1 )
  20.      $   GO TO 20
  21. *
  22. *        code for unequal increments or equal increments
  23. *          not equal to 1
  24. *
  25.       IX = 1
  26.       IY = 1
  27.       IF( INCX.LT.0 )
  28.      $   IX = ( -N+1 )*INCX + 1
  29.       IF( INCY.LT.0 )
  30.      $   IY = ( -N+1 )*INCY + 1
  31.       DO 10 I = 1, N
  32.          CY( IY ) = CX( IX )
  33.          IX = IX + INCX
  34.          IY = IY + INCY
  35.    10 CONTINUE
  36.       RETURN
  37. *
  38. *        code for both increments equal to 1
  39. *
  40.    20 DO 30 I = 1, N
  41.          CY( I ) = CX( I )
  42.    30 CONTINUE
  43.       RETURN
  44.       END
  45.